home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / Surf.cpt / Surfboard / background_2602.txt < prev    next >
Encoding:
Text File  |  1987-11-22  |  8.6 KB  |  372 lines
  1. -- background: 2602 from stack: in
  2. -- bmap block id: 4249
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closecard
  8.   put line 1 of field "Member Info" into name
  9.   set name of this card to name
  10. end closecard
  11.  
  12. on opencard
  13.   show menubar
  14. end opencard
  15.  
  16. on newcard
  17.   set cursor to 4
  18.   set lockscreen to true
  19.   -- Member button
  20.   domenu "New Button"
  21.   set name of button "New Button" to "Member"
  22.   set rect of button "Member" to 52,209,132,223
  23.   set style of button "Member" to checkbox
  24.   set autohilite of button "Member" to true
  25.   set script of button "Member" to script of bkgnd button "Member Script"
  26.   -- Member Field
  27.   domenu "New Field"
  28.   set name of card field 1 to "Member"
  29.   set rect of card field "Member" to 73,227,160,261
  30.   set textfont of card field "Member" to Chicago
  31.   set textalign of card field "Member" to right
  32.   -- Member2 Field
  33.   domenu "New Field"
  34.   set name of card field 2 to "Member2"
  35.   set rect of card field "Member2" to 165,243,264,261
  36.   set textfont of card field "Member2" to New York
  37.   set showlines of card field "Member2" to true
  38.   -- Touch ups
  39.   put "Membership" & return & "paid on" into card field "Member"
  40.   set locktext of card field "Member" to true
  41.   hide card field "Member"
  42.   hide card field "Member2"
  43.   set lockscreen to false
  44.   tabkey
  45. end newcard
  46.  
  47.  
  48.  
  49. -- part 16 (field)
  50. -- low flags: 00
  51. -- high flags: 4000
  52. -- rect: left=287 top=110 right=209 bottom=485
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 2
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Member Info
  61. ----- HyperTalk script -----
  62. on closefield
  63.   if line 2 of bkgnd field "Member Info" is empty
  64.   then answer "Be creative! Choose an alias."
  65. end closefield
  66.  
  67.  
  68.  
  69. -- part 17 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=288 top=35 right=61 bottom=322
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 19381 / 19381
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   get the number of this card
  84.   if it = 1 then exit mouseup
  85.   put line 1 of field "Member Info" into name
  86.   if visible of card field "Member2" = true and card field "Member2" is empty then
  87.     answer "Is" && word 1 of field "Member Info" && "an executive?" with "Yes" or "No"
  88.     If it = "No" then
  89.       answer "Then, please put in the date of his payment."
  90.       exit mouseup
  91.     else
  92.       set cursor to 4
  93.       set lockscreen to true
  94.       put "Exec" into card field "Member2"
  95.       if field "YesNo" = "Yes"
  96.       then go to card name of stack "Surf2"
  97.     else click at 231,309
  98.     click at 60,75
  99.     go to card name of stack "Surfboard"
  100.     set lockscren to false
  101.   end if
  102. end if
  103. visual effect wipe right
  104. go to previous card
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part 18 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=328 top=35 right=61 bottom=362
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 22308 / 22308
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: 
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   get the number of this card
  124.   if it = the number of cards then exit mouseup
  125.   put line 1 of field "Member Info" into name
  126.   if visible of card field "Member2" = true and card field "Member2" is empty then
  127.     answer "Is" && word 1 of field "Member Info" && "an executive?" with "Yes" or "No"
  128.     If it = "No" then
  129.       answer "Then, please put in the date of his payment."
  130.       exit mouseup
  131.     else
  132.       set cursor to 4
  133.       set lockscreen to true
  134.       put "Exec" into card field "Member2"
  135.       if field "YesNo" = "Yes"
  136.       then go to card name of stack "Surf2"
  137.     else click at 231,309
  138.     wait 4 seconds
  139.     click at 60,75
  140.     go to card name of stack "Surfboard"
  141.     set lockscreen to false
  142.   end if
  143. end if
  144. visual effect wipe left
  145. go to next card
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 19 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=449 top=35 right=61 bottom=483
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 14953 / 14953
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: 
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   visual effect iris close
  165.   pop card
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 20 (button)
  171. -- low flags: 00
  172. -- high flags: 0000
  173. -- rect: left=449 top=67 right=93 bottom=483
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 21700 / 21700
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Home
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   visual effect iris close
  185.   go home
  186. end mouseUp
  187.  
  188.  
  189.  
  190.  
  191. -- part 21 (button)
  192. -- low flags: 00
  193. -- high flags: A003
  194. -- rect: left=21 top=298 right=320 bottom=94
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Find
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   domenu "Find..."
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 22 (button)
  211. -- low flags: 00
  212. -- high flags: A003
  213. -- rect: left=108 top=298 right=320 bottom=181
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Sort
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   answer "Sort by:" with "First" or "Last" or "Zip"
  225.   if it = "First"
  226.   then sort by word 1 of field "Member Info"
  227. else if it = "Last"
  228. then sort by last word of line 1 of field "Member Info"
  229. else sort by last word of line 4 of field "Member Info"
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 23 (button)
  235. -- low flags: 00
  236. -- high flags: A003
  237. -- rect: left=195 top=298 right=320 bottom=268
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Info
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   visual effect iris close
  249.   set cursor to 4
  250.   set lockscreen to true
  251.   put line 1 of field "Member Info" into name
  252.   get field "YesNo"
  253.   if it = "Yes"
  254.   then go to card Name of stack "Surf2"
  255. else
  256.   put "Yes" into field "YesNo"
  257.   go to last card of stack "Surf2"
  258.   domenu "New Card"
  259.   set name of this card to Name
  260.   put name into field 1
  261.   set lockscreen to false
  262.   choose browse tool
  263. end if
  264. end mouseup
  265.  
  266.  
  267.  
  268.  
  269. -- part 24 (button)
  270. -- low flags: 00
  271. -- high flags: A003
  272. -- rect: left=284 top=298 right=320 bottom=373
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: New Card
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   domenu "New Card"
  284.   put "No" into field "YesNo"
  285.   tabkey
  286. end mouseUp
  287.  
  288.  
  289.  
  290. -- part 25 (button)
  291. -- low flags: 00
  292. -- high flags: A003
  293. -- rect: left=387 top=298 right=320 bottom=482
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: Delete Card
  302. ----- HyperTalk script -----
  303. on mouseUp
  304.   put line 1 of field "Member Info" into name
  305.   if field "YesNo" = "Yes" then
  306.     set cursor to 4
  307.     set lockscreen to true
  308.     put "." into card field "Member2"
  309.     go to card name of stack "Surf2"
  310.     domenu "Delete Card"
  311.     go to card name of stack "Surfboard"
  312.   end if
  313.   domenu "Delete Card"
  314. end mouseUp
  315.  
  316.  
  317.  
  318. -- part 26 (button)
  319. -- low flags: 80
  320. -- high flags: 8003
  321. -- rect: left=378 top=271 right=293 bottom=484
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 1
  325. -- font id: 0
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Member Script
  330. ----- HyperTalk script -----
  331. on mouseup
  332.   set visible of card field "Member" to not the visible of card field "Member"
  333.   set visible of card field "Member2" to not the visible of card field "Member2"
  334. end mouseup
  335.  
  336.  
  337.  
  338. -- part 27 (field)
  339. -- low flags: 80
  340. -- high flags: 0004
  341. -- rect: left=170 top=35 right=51 bottom=219
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 0
  345. -- font id: 3
  346. -- text size: 12
  347. -- style flags: 0
  348. -- line height: 16
  349. -- part name: YesNo
  350.  
  351.  
  352. -- part 28 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=386 top=62 right=101 bottom=428
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 23078 / 23078
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: Help
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   push card
  367.   visual iris close
  368.   answer "Which help would you like?" with "General" or "This Stack"
  369.   if it = "General" then go to Help
  370.   else go to last card of SurfHelp
  371. end mouseUp
  372.